       X = MsgBox("Are you Sure to Cancel this Transaction?" & Chr(10), vbYesNo + vbQuestion, "CANCEL")
      If X <> vbYes Then Exit Sub
  CmdCancel.Enabled = False
  CmdClose.Enabled = True

' This code to Transfer the data from TmpDetail table into TrxDetail table

      If rs.State = adStateOpen Then rs.Close
 rs.Open "select * from TmpDetails", Cn, adOpenStatic, adLockReadOnly
 If rs.RecordCount > 0 Then
     rs.MoveFirst
         For aloop = 0 To rs.RecordCount - 1
 Csql = ""
 Csql = "Insert Into TrxDetails(SalesType, SpecialOrder, BARCODE, UOMCode, Qty, StdUnitPrice, SalesUnitPrice)" & _
 "VALUES('" & rs("SalesType") & "','" & rs("SpecialOrder") & "','" & rs("Barcode") & _
 "','" & rs("UOMCode") & "','" & rs("Qty") & "','" & rs("StdUnitPrice") & "','" & rs("SalesUnitPrice") & "')"
         
         Cn.Execute Csql
                
             rs.MoveNext
 Next
     If rs.RecordCount > 0 Then
     rs.MoveFirst
         For aloop = 0 To rs.RecordCount - 1
      Cn.Execute ("delete * from TmpDetails")
      
      rs.MoveNext
